home *** CD-ROM | disk | FTP | other *** search
/ Next Step: Mars? / Next Step Mars (1994)(IVI).iso / lowell.dir / 00063_Script_63 < prev    next >
Text File  |  1994-11-28  |  2KB  |  69 lines
  1. on Startmovie
  2.   global qtCastName,qtSprite ----,increment, L
  3.   initSearchPath
  4.   set qtCastName = "Rubyshoe"
  5.   set qtSprite = 23
  6. end startup
  7.  
  8. on checkKey
  9.   if the key = RETURN then
  10.     if field "passwordbox" contains "plasma" then
  11.       go to frame "start"
  12.     else
  13.       go to frame "nopass"
  14.     end if
  15.     when keydown then nothing
  16.   end if
  17. end checkkey
  18.  
  19. on firstFrame
  20.   global qtSprite
  21.   set the movieRate of sprite qtSprite = 0
  22.   set the movieTime of sprite qtSprite = 0
  23. end firstFrame
  24.  
  25. on lastFrame
  26.   global qtSprite,qtcastname
  27.   set the movieTime of sprite qtSprite = the duration of cast qtcastName
  28. end lastFrame
  29.  
  30. on stepFwdQT
  31.   global qtSprite,qtcastname
  32.   set the movieRate of sprite qtSprite = 0
  33.   if the movieTime of sprite qtSprite < the duration of cast qtcastname then
  34.     set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite + 1
  35.   end if
  36. end stepFwdQT
  37.  
  38. on stepRevQT
  39.   global qtSprite
  40.   set the movieRate of sprite qtSprite = 0
  41.   if the movieTime of sprite qtSprite = 0 then exit
  42.   set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite - 1
  43. end stepRevQT
  44.  
  45. on frameCounter
  46.   global qtSprite
  47.   set the text of cast "counter" to string(the movieTime of sprite qtSprite)
  48. end frameCounter
  49.  
  50. --on rewindQT
  51. global qtSprite
  52. set the movieRate of sprite qtSprite = -3
  53. --set the movieTime of sprite qtSprite = 0
  54. end rewindQT
  55.  
  56. on pauseQT
  57. global qtSprite
  58. set the movieRate of sprite qtsprite = 0
  59. end pauseQT
  60.  
  61. on playQT
  62. global qtSprite,qtcastName
  63. set the movieRate of sprite qtSprite = 1
  64. end playQT
  65.  
  66. on playQT2
  67. global qtSprite,qtcastName
  68. set the movieRate of sprite qtSprite = 1
  69. end playQT2